home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1004_RadioButton < prev    next >
Encoding:
Text File  |  1990-03-23  |  601 b   |  32 lines
  1. %case window field%
  2.     %HandleName%:%    %ControlHandle;
  3. %case create%
  4.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  5. %case dispose%
  6. %case mousein%
  7. %case update%
  8. %case activate%
  9. %case track%
  10.     if whichControl = %HandleName% then begin
  11.         TrackRadio (%HandleName%, where, %fieldname%);
  12.     end;
  13. %case itemNr%
  14.     %DefineItem%
  15. %case dialog field%
  16.     %Enable?%
  17. %case init field%
  18.     %Enable?%
  19. %case auxiliary%
  20. %case filter%
  21. %case set%
  22. %case enable%
  23.     %Enable?%
  24. %case hit%
  25.     %if not lastInGroup%
  26.         %itemname%,
  27.     %else%
  28.         %itemname%: begin
  29.                 DoRadio (%firstRadio%, itemNr, %fieldname%);
  30.             end;
  31.     %end if%
  32. %case finish%